Option Explicit
Sub B_Sample027()
    Dim mySht As Worksheet
    Dim myStr As String
    Set mySht = Worksheets(1)			'N
    With mySht
        MsgBox .EnableAutoFilter		'\QO@ɶi۰ʿz諸ާ@
        MsgBox .EnableCalculation		'\۰ʦAp
        MsgBox .EnableOutlining  		'\QO@ɶi~ؽuާ@
        MsgBox .EnablePivotTable		'\QO@ɶiϯäRާ@
        Select Case .EnableSelection
            Case xlNoSelection
                myStr = "bQO@ɡA\@xs檺"
            Case xlUnlockedCells
                myStr = "bQO@ɡAu\@SQwxs檺"
            Case xlNoRestrictions
                myStr = "VbQO@ɡA\@xs檺"
        End Select
        MsgBox myStr
    End With
    Set mySht = Nothing				'
End Sub
